home *** CD-ROM | disk | FTP | other *** search
/ Fifty: Elektronik / FIFTY Elektronik (PS_Computer_Vertrieb).iso / ps8 / fty1017 / gepackt.exe / DISK2 / PLOTSRC.EXE / PLSTEUER.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-10  |  3.9 KB  |  158 lines
  1. {$R-,S-,B-,I+}
  2. Unit PLSTEUER;
  3.  
  4. Interface
  5.  
  6. uses
  7.   Crt,
  8.   Dos,
  9.   StrTool,
  10.   GEDDEFS,
  11.   KEYSCRN,
  12.   PLOTSYS,
  13.   PLOTSTOR,
  14.   PRNinOut,
  15.   GEOTOOL;
  16.  
  17.  
  18. Type
  19.   MacParms =Record
  20.                XMac,YMac,MPhi :Integer;
  21.                Mfac :Real;
  22.                TMac :Boolean;
  23.                MirMac:Boolean;
  24.             End;
  25. Type  SpiegelPar =Record
  26.                    A11,A12,A21,A22,Ex,Ey :Real;
  27.                    Phiaxis  :Integer;
  28.                    MirrText :Boolean;
  29.                  end;
  30.  
  31. Const Yaxis :Spiegelpar =(A11: -1.0; A12: 0.0;
  32.                           A21:  0.0; A22: 1.0;
  33.                           Ex:   0.0; Ey:  0.0;
  34.                           Phiaxis :90;
  35.                           MirrText:false);
  36.  
  37. Const
  38.      DefMacparms : Macparms=(Xmac:0;Ymac:0;MPhi:0;Mfac:1.0;
  39.                              TMac:false;MirMac:false);
  40.  
  41. Type
  42.    Plotmodi  =(Standard,Loetstop,Bestueck,Testplot);
  43.    ModiRep = Array[PlotModi] of String[12];
  44.    PenArray = Array[1..MaxLayer+1] of GrColor;
  45.  
  46. Const
  47.   PlotmodeRep :ModiRep = ('Standard  ',
  48.                           'Lötstop   ',
  49.                           'Bestückung',
  50.                           'Testplot  ');
  51.   Schriftdicke  :Real = 0.08;
  52.  
  53.   MaxBuf = 350;
  54.  
  55. Var
  56.     TC   :Char;
  57.     BuffPtr         : Integer;
  58.     BildBuff :Array[0..MaxBuf] of Bildelement;
  59.     Weiter :Boolean;
  60.     Tastendruck :Boolean;
  61.     Lastkey    :Char;
  62.     StiftBreiten:array[1..9] of Real;
  63.     Stiftbreite :Real;
  64.     LoetstopPlus  :Real;
  65.     PlotSpeed :Integer;
  66.     Plotmodus     :PlotModi;
  67.     Lscaledashed,Lscaledotted  :Real;
  68.     AdaptLines,Spiegeln,
  69.     Portrait                   :Boolean;
  70.     FensterX1,FensterY1,
  71.     FensterX2,FensterY2        :Integer;
  72.     PlotOffset   :Koord;
  73.     PlotLayers   :LayerSet;
  74.     PenLookUp    :PenArray;
  75.     GrDrawColor,PlOldPen     : GrColor ;
  76.     GrDotted                 : GrLineType;
  77.     GrCursorX,GrOldX,
  78.     GrCursorY,GrOldY         : Real ;
  79.     EndSym                   :Str5;
  80.     ComInstalled             :Boolean;
  81.     LayerSetofPen : Array[1..9] of Layerset;
  82.     LastKoord     :Koord;
  83.     Backscale     :Real;
  84.     AufDatei      :Boolean;
  85.     PrOutFile     : TEXT;
  86.     S_Count :Real; { Variable zur Strichpunkt-Emulation }
  87.     S_Count_rest:Real;
  88.     Linienteilung :Real;
  89.     LastLineType  :GrlineType;
  90.     Emul_LT       :Boolean;
  91.  
  92.  
  93. Procedure Tausche(Var X,Y :Integer);
  94.  
  95. Procedure Pencolor(Color :GrColor);
  96.  
  97. Procedure Linetype(Typ : GrLineType);
  98.  
  99. Procedure FormReals(X:Real;Var S:Str10);
  100.  
  101. Procedure DrehenSpiegeln(Var X,Y :Real);
  102.  
  103. Procedure RetourAbbild(Var X,Y :Real);
  104.  
  105. Procedure Moveto(Xz , Yz :Real);
  106.  
  107. Procedure Circle(CenterX, CenterY ,RX,RY :Real; Alpha,Beta :Integer;
  108.                          CColor: GrColor;Direction :Boolean);
  109.  
  110. Procedure Eye(CenterX,CenterY,OuterDiaM,InnerDiaM :Real;
  111.               EColor :GrColor);
  112.  
  113. Procedure OvalEye(CenterX,CenterY,OuterDiaM,InnerDiaM,OvalLen :Real;
  114.                   EColor :GrColor);
  115.  
  116. Procedure SqareEye(CenterX,CenterY,OuterDiaM,InnerDiaM :Real;
  117.                    EColor :GrColor);
  118.  
  119. Procedure Octagon(CenterX,CenterY,OuterDiaM,InnerDiaM :Real;
  120.                   EColor :GrColor);
  121.  
  122. Procedure Rectangle(X,Y,L,B,Margin :Real;RColor : GrColor);
  123.  
  124. Procedure Pfeilspitze(SpitzeX,SpitzeY,Laenge :Real;EColor :GrColor);
  125.  
  126. Procedure LinePaint(X0,Y0,XE,YE :Real; B :Real;Color :GrColor;
  127.                     Adapt :Boolean);
  128.  
  129. Function TextLaenge(Var T:Bildelement):Integer;
  130.  
  131. Procedure Wstring(X,Y :Real; YourText :Str80 ; SColor :GrColor;
  132.                   Size :Real; ChTyp :GrChType) ;
  133.  
  134.  
  135. Procedure Pfeil(X,Y,Laenge,Groesse:Real; MText :Str80;
  136.                         Color :GrColor);
  137.  
  138. Procedure InitBackSc;
  139.  
  140. Procedure InitLayersetofPen;
  141.  
  142. Procedure PlotReset;
  143.  
  144. Function Istmass(Origin: Integer):Real;
  145.  
  146. Function Rastermass(Mass : Real):Integer;
  147.  
  148.  
  149. {===========================================================================}
  150.  
  151. Implementation
  152.  
  153.  
  154. (*$I PLSTEUER.INC *)
  155.  
  156.  
  157. End.
  158.